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tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
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MM MM TTTTTTTTTT HH HH GGGGGGGG FFFFFFFFFF LL 000000 000000 RRRRRRRR 

la MM TTTTTTTTTT HH HH GGGGGGGG FFFFFFFFFF LL 000000 000000 RRRRRRRR 

MMMM = MMMM TT HH HH GG FF LL 00 00 00 00 RR RR 

MMMM MMMM TT HH HH GG FF LL 00 00 00 RR RR 

“A 6M COMM TT HH HH GG FF LL 00 00 00 RR RR 
a TT HH HH GG FF LL 00 00 00 00 RR RR 

MM MM TT HHHHHHHHHH =GG FFFFFFFF LL 00 00 00 00 RRRRRRRR 

al lal TT HHHHHHHHHH §=GG FFFFFFFF LL 00 00 00 00 RRRRRRRR 

MM MM TT HH HH GG GGGGGG FF LL 00 00 00 0O RR RR 

MM MM TT HH HH GG GGGGGG FF L 00 00 00 00 RR RR 

MM MM TT HH HH GG GG FF LL 00 00 00 0O RR RR eeee 
MM MM TT HH HH GG GG FF LL 00 00 00 00 RR RR cove 
MM MM TT HH HH GGGGGG FF LLLLLLLLLL 000000 000000 RR RR cee 
MM MM TT HH HH GGGGGG FF LLLLLLLLLL 000000 000000 RR RR eeee 
LL III] SSSSSSSS 

LL 1111 SSSSSSSS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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DECLARATIONS 
MTIHSGFLOOR = greatest sateger 6 fhogring routine 
MTHSGFLOOR_R3 = greatest integer G_floating routine 


Page 0 


nage 


- Greatest integer routine for G_ disgein y= pS 9 91: gf: 2 aT bg ne 


“TEILS WINRGELOOR - Greatest integer routine for G 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


ALL RIGHTS RESERVED. 


OOOCCCOCOOOoSoSoO 
Ooo 


SOOSOSCSCSOSSOOSCOSOSOSOSOSOSOSOSSOOSOOSOOOSOOOOSOSoSOS 
SOOOCOCOCCOoCQoOoooooooooooooooooooooo 


Be Se Se Se Se Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Se 
eaeneneeeeeeaeneeaeaeenaeaenennane 


++ 
; FACILITY: Math Library 
; ABSTRACT: 


ODOoOOoOoOoOoooooooooSo 
SSOSOSCSCSOSOSOSOSOSOSOSOOSOSOSOSOSOSOSOSOSOOSOSOOSOSSSOS 


; ENVIRONMENT: User Mode, AST Reentrant 


S Author: John Sauter, Creation date: 27-JUL-1979 
MODIFIED BY: 


; yERS10N 00 
; 1-001 = Original, from MTHSDFLOOR. 


AOE WN 9 DOONAN WIN 9 ODNAUE WIN OC OONAUE WN "OOOO 


PEELE S PWWIWNWIWIWINININININONONONONonoNononons 3] 2 3 


; for data type G_floating. 


é 


DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN accor DANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 
INCLUSION OF TH “ oe eat COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES bos gall vr BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERS TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aoe pokaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RAERARHAAAAEAEAAAAAAAAAAAARAAAARAARARAAAAAAAAAAAARAEAAAAAAAEAAAAAAAAAAEAEAAAAEEEEE 


v04-00 p 
SATHGFLOOR.maR;1 °° ct) 


G_ floating 


le: MTHGFLOOR.MAR 


SRAAAAAAAEAAEAEAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAARAAAAAAAAAAAAEE 


® 
® 
® 
® 
x 
® 
® 
® 
# 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
* 


This routine finds the largest integer less than the input 
value, i.e. it truncates toward negative infinity 


a+ 
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DECLARATIONS > green T bs S1iSEi2) FATANES Beets Mer ooR.mans1 2% (3) Ta 
4 «SBTTL DECLARATIONS 
; INCLUDE FILES: 
, : EXTERNAL DECLARATIONS: 
: , .OSABL GBL : Prevent undeclared 
: + symbols from = 
8 } 3 automatically global. 
60 : MACROS: 
61; 
0 64 : EQUATED SYMBOLS: 
0 65 ; 
$00 «Ge 
0 67 ; 
00 68 : OWN STORAGE: 
00 9 3 
00 0 
00 71 3: 
009 ye 3 PSECT DECLARATIONS: 
0000 8 74 ° .PSECT _MTHSCODE PIC, USR, CON, REL, LCL, SHR, - 
9000 i EXE, RD, NOWRT, LONG 


12 
MTHSGFLOOR - Greatest integer routine for G boatin 16-SEP-1984 01:27:29 VAX/VMS Macro v04-00 P 
TOO MTHSGFLOOR = Qreatest integer G_floatin miiet sy 94:35:83 UATHRTL SRCIMTHGELOOR MAR; 1 — ad 
4 ; -SBTTL MTHSGFLOOR = greatest integer G_floating routine 
p ; FUNCTIONAL DESCRIPTION: 
§ : This routine finds the floor by truncating, and then if the 
? : input value is negative and not an integer subtracting 1. 
5 3 CALLING SEQUENCE: 
$ 3 CALL result_int.wg.v = MTHSGFLOOR (input.rg.r) 
: ; INPUT PARAMETERS: 
00000004 0 91° input_addr = 4 ; address of the G_floating number 
09 38 ; 3 to get the floor of 
6 6 94 ; IMPLICIT INPUTS: 
3 95 ; 
0 38 ; NONE 
00 97 ; 
4 a ; OUTPUT PARAMETERS: 
00 99 ; 
00 100 ; NONE 
00 131 : 
09 138 : IMPLICIT OUTPUTS: 
09 0 10% : NONE 
000 105; 
44 106 ; FUNCTION VALUE: 
4444 4 : COMPLETION CODES: 
4 19 ; the G_floating value of the greatest integer 
0 111 : SIDE EFFECTS: 
0 116 3 
0 113 : NONE 
00 114 ; 
00 115 ;-- 
00 118 
000¢ . 1 ENTRY MTHSGFLOOR, “M<R2, R3> 3 entry point 
50 04 BC 5SOFD 00 119 MOVG @input_addr(AP), RO ; RO/R1 = input argument 
52 52 08 98 3 4FD 120 EMOD RO, #0, #1, R2, R2 : R2/R3 = fraction_part (arg) 
0 42FD $ ! 1 SUBG R2, RO ; RO/R1 = integer_part (arg 
09 14 ! ! 5 BGTR 40$ ; if > 0, have correct answer 
52 53F 14 125 TSTG Re : look at fraction part 
06 #1 to § BGEQ 40$ 3; if > 0 then 0 < input < 1 and 
1° 1 3 .we have the correct answer 
1 1 3 ; if = 0 then input was integer 
\° ! 4 3; and we have correct answer 
50 08 42FD 19 131 SUBG2 #1,R0 3; subtract 1 from truncated 
19 ! 5 3 Negative non-integer 
04 1D 134 408: RET 


wmoe 
oo 
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RRS : greatest integer G_floa meth 94:55:23 MIURTL . SRETATHGELOOR MAR: 1 we: (ay 2- 


- ~-SBTTL MTHSGFLOOR_R3 = greatest integer G_floating routine 
; FUNCTIONAL DESCRIPTION: 

This is the JSB entry point to MTHS$GFLOOR. 
CALLING SEQUENCE: 

JSB result_int.wg.v = MTHSGFLOOR_R3 (input.rg.v) 
INPUT PARAMETERS: 

RO and R1 contain the input value 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


the G_floating value of the greatest integer 
SIDE EFFECTS: 
NONE 


reat 
SGFL 


UNE & FQQCCOM DD OOVMNMMMMMMMMMMMMMMMMMMMMMMMMMMMmMmMmmmnmmmmmmmnm Ow 


Be Ge Se Ge Se Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Sse Se Sets Se 


MTHSGFLOOR_R3:: 3: entry point 


EMOD RO, #0, #1, R2, R2 ; R2/R3 = fraction_part targ) 
SUBG R2, RO ; RO/R1 = integer_part (arg 


BGTR 40$ : if > 0, have correct answer 


TSTG ae 


; look at srecaten part 
BGEQ 


: if > 0 then 0 < input < 1 and 
; .we have the correct answer 
: if = 0 then input was integer 
3 and we have correct answer 
08 42FD 


SUBG2 #1,R0 subtract 1 from truncated 


negative non-integer 


05 40$: RSB 


$OW0909.09 09096969 0909 69 SI INNS SSID DDD DPA AD TUTTE BP BS BEE EIN 


=OODWNAUES WN OO OONAUE WIN $9 OD NAUE WN 0 OONAU EW OO OONOUS WO 


em me ee em ee ed aed ed ed od ed SD dd dd dd dd 8d 8d 8 dd 


mn oO 
nm oO 
wm 
Ww mwsF 
~~ 
oo * 
Sooooo 
AA AA AAA AAAI OPOTOPONIND 


MTHSGFLOOR 
Symbol table -SEP=1 


INPUT ADDR = 4 
MTHSGFLOOR 69909000 Re 
MTHS$GFLOOR_R3 ERG 01 


tem mn aes eee ana n ee } 


PSECT name Allocation PSECT No. Attributes 

- ABS. 00000 ( -) 0O¢ 0.) NOPIC USR CON ABS’ LCL 

_MTHSCODE atte: ( 53:3 8 ( 9.) PIC USR CON REL LCL 
Poon wee esceonoeacan eoane cas} 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 0:00:00.11 8:00: 1.10 

ommand processing 117 0:00: 8°86 0:00: ¢7 

Pass 1 7 0:00:00.50 . 702.14 

Symbol table sort 0:00: Sat :00:00.00 

Pass 2 4 0:00:00.4 0:00:02.01 

Symbol table output :00:00.01 88:6 :00.01 

Psect synopsis output 0:00: 8°8 0:00:00.02 

Cross-reference output 3: :00.0 BBO ob E> 

Assembler run totals 27 : 1.4 00:00:08.6 


de. 
pages of symbol table space aliocased to hold 3 non-local and 2 local symbols. 


wee sewn mas e we Boe Ee ec ee mee ay 


~$255$DUA28: CSYSLIBJSTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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AX/VMS Macro V04-00 Page 5 
MTHRTL.SRCIMTHGFLOOR.MAR; 1 (4) 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DJ SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGFLOOR/OBJ=OBJ$:MTHGFLOOR MSRC$:MTHGFLOOR/UPDATE=(ENHS : MTHGFLOOR) 


NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


40260 


